Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/C-D/DeveloperStax.cpt/Developer Stack 1.1/card_6103.txt

Text File | 1989-02-26 | 3KB | 155 lines

-- card: 6103 from stack: in.1
-- bmap block id: 0
-- flags: 4000
-- background id: 2612
-- name: SoundCapToRes


-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=82 top=302 right=324 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  put installres(XCMD,SoundCapToRes) into it
  if it is empty then play boing
  else answer it
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=163 top=265 right=290 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Convert Sounds
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  put "This lets you convert soundcap or soundwave sounds and install them."

  -- get the name of the original sound file
  answer "You may now select the sound file" with "Cancel" or "OK"
  if it = "Cancel" then
    play oops
    hide message window
    exit mouseup
  end if

  put filename(FSSD) into SoundName
  if SoundName is empty then
    hide message window
    play oops
    exit mouseup
  end if
  put quote&SoundName"e into SoundName

  -- get the sampling rate (between 1 and 4)
  ask "What sample rate should be used? (1,2,3 or 4)" with "2"
  if it <1 or it >4 then
    play oops
    hide message window
    exit mouseup
  end if

  if it =1 then put 60 into it else
  if it =2 then put 72 into it else
  if it =3 then put 79 into it else put 84 into it
end if
end if
put it into SampleRate

-- let user name the sound resource
ask "What do you want to name this sound?"
if it is empty then
  play oops
  hide message window
  exit mouseup
end if
put it into ResName

-- get the name of the destination stack
put "Please select the destination stack"
put filename ("STAK") into Destination
if Destination is empty then
  hide message window
  play oops
  exit mouseup
end if
put quote&Destination"e into Destination

-- do the conversion using the XCMD 'SoundCaptoRes'

-- SoundCapToRes takes four arguments:
-- the name you want to call the sound
-- the file that contains the SoundCap output (in quotes)
-- the stack in which you want to put the sound
-- the base pitch of the sound (60, 72, 79, or 84)

put ResName into Args
put ","&SoundName after Args
put ","&Destination after Args
put ","&SampleRate after Args

do "SoundCaptoRes" && Args

-- go to the target stack and test the sound
push card
go to Destination
play ResName
repeat while the sound is not "done"
end repeat
pop card
end mouseUp



-- part contents for background part 13
----- text -----
5

-- part contents for background part 2
----- text -----
SoundCapToRes

-- part contents for background part 3
----- text -----

This will convert a SoundCap or SoundWave file into a
'snd' resource and install it into a specified stack.







Thanks to:
? (If anyone knows who wrote this please pass the information on so proper credit can be given.)



-- part contents for background part 10
----- text -----
Syntax:

SoundCapToRes <ResourceName>,
<SourceFile>,<DestinationFile>,
<SampleRate>